2 V=53280:W=54272:SM=1024:CM=55296:POKEV,11:POKEV+1,0:PRINT"[147]" 4 PRINT"";TAB(9);"*****[146] FUTUREWAR! *****" 6 PRINTTAB(13);"BY B.W.BEHLING" 8 PRINTTAB(11);"(C) COPYRIGHT 1984" 10 GOSUB 12:GOSUB 22:GOTO 56 12 REM ** VARIABLES ** 14 DIMPN$(2,6),P(2,6),SE(9,4,6),D%(12):TR=36 16 FORI=1TO6:READCL$:PN$(1,I)=CL$:READCL$:PN$(2,I)=CL$:NEXTI 18 FORI=1TO9:READA%(I):NEXT:FORI=2TO9:READB%(I):NEXT:FORI=0TO9:READC%(I):NEXT 20 RETURN 22 REM ** DELAY LOOP ** 24 FORDL=0TO2000:NEXTDL:RETURN 26 REM ** PRINT MESSAGE ** 28 PRINT"";MSG$:GOSUB 22:RETURN 30 REM ** ERASE MESSAGE ** 32 FORER=1824TO2023:POKEER,32:NEXTER:RETURN 34 REM ** PLAYER INFO ** 36 PRINT"";PN$(0,PT);",";MSG$:RETURN 38 REM ** BOMB SOUND ** 40 FORI=0TO22:POKEW+I,0:NEXTI:POKEW+24,10:POKEW+5,80:POKEW+12,160 42 POKEW+6,255:POKEW+13,252:POKEW+4,17:POKEW+4,16 44 FORI=255TO200STEP-1:POKE54273,I:NEXTI 46 FORI=255TO75STEP-1:POKE54273,I 48 FORJ=1TO5:NEXT:NEXT:POKEW+1,10:POKEW+8,1:POKEW+5,112:POKEW+6,252 50 POKEW+4,129:POKEW+11,129 52 FORI=1TO200:NEXTI 54 POKEW+4,128:POKEW+11,128:RETURN 56 PRINT"[147] NUMBER OF PLAYERS";:INPUTNP 58 IFNP<7THEN 62 60 PRINT" SORRY, NO MORE THAN SIX CAN PLAY!":GOSUB 22:GOTO 56 62 IFNP<1THEN 56 64 IFNP<3ORNP>5THEN 68 66 PRINT" CAN I PLAY WITH YOU";:INPUTCP$:GOTO 70 68 CP=0:GOTO 74 70 IFLEFT$(CP$,1)="N"THENCP=0:GOTO 74 72 CP=1 74 FORI=1TONP 76 PRINT" PLAYER #";I;:INPUT"NAME";PN$(0,I) 78 IFLEN(PN$(0,I))<11THEN 84 80 PRINT"[158] THAT NAME IS TOO LARGE!" 82 PRINT" NO MORE THAN 10 LETTERS PLEASE.":GOTO 76 84 PRINT" ";PN$(0,I);",YOUR COLOR IS ";PN$(1,I);".":NEXTI 86 ONNPGOTO 90, 104 88 GOTO 112 90 PRINT" PLAYER # 2 NAME? COMPUTER 2" 92 PN$(0,2)="COMPUTER 2":P(2,2)=1 94 PRINT" ";PN$(0,2);",YOUR COLOR IS ";PN$(1,2);".":I=3 96 PRINT" PLAYER # 3 NAME? COMPUTER 3" 98 PN$(0,3)="COMPUTER 3":P(2,3)=1 100 PRINT" ";PN$(0,3);",YOUR COLOR IS ";PN$(1,3);"." 102 NP=3:GOTO 120 104 PRINT" PLAYER # 3 NAME? COMPUTER 3" 106 PN$(0,3)="COMPUTER 3":P(2,3)=1 108 PRINT" ";PN$(0,3);",YOUR COLOR IS ";PN$(1,3);"." 110 NP=3:GOTO 120 112 IFCP<>1THEN 120 114 NP=NP+1:PRINT" PLAYER #";NP;"NAME? COMPUTER";NP 116 PN$(0,NP)="COMPUTER"+STR$(NP) 118 PRINT" ";PN$(0,NP);",YOUR COLOR IS ";PN$(1,NP);".":P(2,NP)=1 120 GOSUB 22:GOSUB 22 122 AR=32-((NP-3)*5):PT=INT(NP*RND(0))+1 124 FORI=1TO6:P(1,I)=AR:NEXTI 126 REM ** DRAW SCREEN ** 128 PRINT"[147]":FORI=0TO40:READS:POKESM+I,S+128:POKECM+I,7:NEXTI 130 FORI=79TO759STEP40:POKESM+I,160:POKECM+I,7 132 POKESM+I+1,160:POKECM+I+1,7:NEXTI 134 FORI=761TO799:READS:POKESM+I,S+128:POKECM+I,7:NEXTI 136 FORI=1TO4:PRINTTAB(1)" [206][163][163][205] [206][163][163][205] [206][163][163][205] [206][163][163][205] [206][163][163][205]" 138 PRINTTAB(1)"[206] [205][164][164][206] [205][164][164][206] [205][164][164][206] [205][164][164][206] [205]" 140 PRINTTAB(1)"[205] [206][163][163][205] [206][163][163][205] [206][163][163][205] [206][163][163][205] [206]" 142 PRINTTAB(1)" [205][164][164][206] [205][164][164][206] [205][164][164][206] [205][164][164][206] [205][164][164][206]":NEXTI 144 PRINTTAB(5)"[205] [206] [205] [206] [205] [206] [205] [206]" 146 PRINTTAB(6)"[205][164][164][206] [205][164][164][206] [205][164][164][206] [205][164][164][206]" 148 MSG$="  NOW WE CHOOSE SECTORS [146]":GOSUB 26:GOSUB 30 150 R1=INT(9*RND(0))+1:R2=4:R3=INT(9*RND(0))+1:R4=1 152 REM ** PICKING SECTORS ** 154 MSG$=" PICK A SECTOR.":GOSUB 34 156 IFP(2,PT)=1THEN 180 158 PRINT"ENTER #";:INPUTPI$:IFLEN(PI$)<>2THENGOSUB 30:GOTO 154 160 IFASC(LEFT$(PI$,1))<49 OR ASC(LEFT$(PI$,1))>57THENGOSUB 30:GOTO 154 162 IFASC(RIGHT$(PI$,1))<49 OR ASC(RIGHT$(PI$,1))>52THENGOSUB 30:GOTO 154 164 A=VAL(LEFT$(PI$,1)):B=VAL(RIGHT$(PI$,1)) 166 IFSE(A,B,0)=0THENSE(A,B,PT)=1:SE(A,B,0)=1:P(1,PT)=P(1,PT)-1:GOTO 172 168 MSG$="  ALREADY PICKED [146]" 170 GOSUB 26:GOSUB 30:GOTO 154 172 GOSUB 246:TR=TR-1:PT=PT+1:IFPT>NPTTHENPT=1 174 IFTR>0THEN 154 176 MSG$="  ALL SECTORS OCCUPIED [146]":GOSUB 26:GOSUB 30 178 MSG$="  NOW YOU MUST REINFORCE [146]":GOSUB 26:GOSUB 30:GOTO 208 180 REM ** COMP. TERR. PICK ** 182 PRINT"ENTER #?"; 184 IFPT=2THEN 196 186 IFSE(R3,R4,0)=0THEN 194 188 R4=R4+1:IFR4>4THENR4=1:R3=R3+1 190 IFR3>9THENR3=1 192 GOTO 186 194 A=R3:B=R4:Z=R3*10+R4:GOTO 206 196 IFSE(R1,R2,0)=0THEN 204 198 R2=R2-1:IFR2<1THENR2=4:R1=R1-1 200 IFR1<1THENR1=9 202 GOTO 196 204 A=R1:B=R2:Z=R1*10+R2 206 PI$=STR$(Z):PRINTPI$:GOSUB 22:GOTO 166 208 REM ** INITIAL REINFORCEING ** 210 MSG$="":GOSUB 34:PRINT"YOU HAVE";P(1,PT);"ARMIES LEFT" 212 IFP(2,PT)=1THEN 234 214 INPUT"REINFORCE #";FO$:IFLEN(FO$)<>2THENGOSUB 30:GOTO 210 216 IFASC(LEFT$(FO$,1))<49 OR ASC(LEFT$(FO$,1))>57THENGOSUB 30:GOTO 210 218 IFASC(RIGHT$(FO$,1))<49 OR ASC(RIGHT$(FO$,1))>52THENGOSUB 30:GOTO 210 220 A=VAL(LEFT$(FO$,1)):B=VAL(RIGHT$(FO$,1)) 222 IFSE(A,B,PT)=1THENSE(A,B,0)=SE(A,B,0)+1:P(1,PT)=P(1,PT)-1:GOTO 228 224 MSG$="  NOT YOUR SECTOR! [146]" 226 GOSUB 26:GOSUB 30:GOTO 210 228 GOSUB 246:PT=PT+1:IFPT>NPTTHENPT=1 230 IFP(1,PT)>0THEN 210 232 MSG$="  PREPARE FOR BATTLE!! [146]":GOSUB 26:GOSUB 30:GOTO 274 234 REM ** COMPUTER REINFORCING ** 236 PRINT"REINFORCE #?"; 238 RA=INT(9*RND(0))+1:RB=INT(4*RND(0))+1 240 FORPC=RBTO4:IFSE(RA,PC,PT)<>1THENNEXTPC:GOTO 238 242 A=RA:B=PC:PC=RA*10+PC 244 PI$=STR$(PC):PRINTPI$:GOSUB 22:GOTO 222 246 REM ** UPDATE SECTORS ** 248 TA=-2:FORI=1TOA:TA=TA+4:NEXTI 250 PRINT"":IFA/2=INT(A/2)THEN 262 252 ONBGOTO 254, 256, 258, 260 254 PRINTTAB(TA);"";PN$(2,PT):GOTO 272 256 PRINTTAB(TA);"";PN$(2,PT):GOTO 272 258 PRINTTAB(TA);"";PN$(2,PT):GOTO 272 260 PRINTTAB(TA);"";PN$(2,PT):GOTO 272 262 ONBGOTO 264, 266, 268, 270 264 PRINTTAB(TA);"";PN$(2,PT):GOTO 272 266 PRINTTAB(TA);"";PN$(2,PT):GOTO 272 268 PRINTTAB(TA);"";PN$(2,PT):GOTO 272 270 PRINTTAB(TA);"";PN$(2,PT) 272 PRINTTAB(TA);" [145]":PRINTTAB(TA);SE(A,B,0):GOSUB 30:RETURN 274 REM ** MAIN ROUTINE ** 276 AM=0:EA%=0:EA=0:FORX=1TO9:FORY=1TO4:IFSE(X,Y,PT)=1THENAM=AM+.75:EA=EA+2 278 NEXTY:IFEA=8THENEA%=EA%+EA 280 EA=0:NEXTX:IFAM>0THEN 286 282 PT=PT+1:IFPT>NPTHENPT=1 284 GOTO 274 286 IFAM<3THENAM=3 288 P(1,PT)=INT(AM):AB=RND(0)*.5:P(1,PT)=INT(P(1,PT)+(AB*P(1,PT)))+EA% 290 MSG$="":GOSUB 34:PRINT"YOU HAVE";P(1,PT);"ARMIES TO STATION" 292 IFP(2,PT)=1THEN 590 294 INPUT"WHAT SECTOR #";RI$:IFLEN(RI$)<>2THENGOSUB 30:GOTO 290 296 IFASC(LEFT$(RI$,1))<49 OR ASC(LEFT$(RI$,1))>57THENGOSUB 30:GOTO 290 298 IFASC(RIGHT$(RI$,1))<49 OR ASC(RIGHT$(RI$,1))>52THENGOSUB 30:GOTO 290 300 A=VAL(LEFT$(RI$,1)):B=VAL(RIGHT$(RI$,1)) 302 IFSE(A,B,PT)=1THEN 308 304 MSG$="  NOT YOUR SECTOR! [146]" 306 GOSUB 26:GOSUB 30:GOTO 290 308 PRINT"[145] ":INPUT"[145]HOW MANY";ST% 310 IFST%<=P(1,PT)THENSE(A,B,0)=SE(A,B,0)+ST%:P(1,PT)=P(1,PT)-ST%:GOTO 316 312 MSG$="  YOU DON'T HAVE THAT MANY! [146]" 314 GOSUB 26:GOSUB 30:GOTO 290 316 GOSUB 246:IFP(1,PT)<>0THEN 290 318 MSG$="  ALL TROOPS ON STATION! [146]":GOSUB 26:GOSUB 30 320 MSG$="DO YOU WANT TO ATTACK? [Y/N]":GOSUB 30:GOSUB 34 322 IFP(2,PT)=1THEN 510 324 GETK$:IFK$=""THEN 324 326 IFK$="N"THEN 450 328 INPUT"ATTACK WHAT SECTOR";DS$ 330 IFLEN(DS$)<>2THENGOSUB 30:GOTO 320 332 IFASC(LEFT$(DS$,1))<49 OR ASC(LEFT$(DS$,1))>57THENGOSUB 30:GOTO 320 334 IFASC(RIGHT$(DS$,1))<49 OR ASC(RIGHT$(DS$,1))>52THENGOSUB 30:GOTO 320 336 AD=VAL(LEFT$(DS$,1)):BD=VAL(RIGHT$(DS$,1)) 338 IFSE(AD,BD,PT)=0THEN 344 340 MSG$="  THAT'S ONE OF YOUR SECTORS! [146]" 342 GOSUB 26:GOSUB 30:GOTO 320 344 INPUT"FROM";AS$ 346 IFLEN(AS$)<>2THENGOSUB 30:GOTO 320 348 IFASC(LEFT$(AS$,1))<49 OR ASC(LEFT$(AS$,1))>57THENGOSUB 30:GOTO 320 350 IFASC(RIGHT$(AS$,1))<49 OR ASC(RIGHT$(AS$,1))>52THENGOSUB 30:GOTO 320 352 AA=VAL(LEFT$(AS$,1)):BA=VAL(RIGHT$(AS$,1)) 354 IFSE(AA,BA,PT)=1THEN 360 356 MSG$="  THAT'S NOT ONE OF YOUR SECTORS! [146]" 358 GOSUB 26:GOSUB 30:GOTO 320 360 IFSE(AA,BA,0)>1THEN 366 362 MSG$="  NOT ENOUGH ARMIES FOR THIS ATTACK [146]" 364 GOSUB 26:GOSUB 30:GOTO 320 366 IFAA=AD AND BA=BD+1 OR AA=AD AND BA=BD-1THEN 382 368 IFAA<>AD-1 AND AA<>AD+1THEN 378 370 IFAD/2=INT(AD/2)THEN 376 372 IFBA=BD OR BA=BD-1THEN 382 374 GOTO 378 376 IFBA=BD OR BA=BD+1THEN 382 378 MSG$="  SECTORS DO NOT CONNECT [146]" 380 GOSUB 26:GOSUB 30:GOTO 320 382 IFSE(AA,BA,0)-1=1THENAS%=1:GOTO 388 384 MSG$="":GOSUB 30:GOSUB 34:PRINT"ATTACKING STRENGTH [1 -";SE(AA,BA,0)-1; 386 PRINT"[157]]";:INPUTAS%:IFAS%<1THEN 382 388 IFAS%>SE(AA,BA,0)-1THEN 382 390 AL=0:DL=0:FORAT=1TOAS%:A1=INT(6*RND(0))+1:D1=INT(6*RND(0))+1 392 AL=AL+1:IFA1>D1THENAL=AL-1:DL=DL+1 394 IFSE(AD,BD,0)-DL<1THEN 400 396 IFSE(AA,BA,0)-AL<2THEN 402 398 NEXTAT:GOTO 402 400 IFAS%=>SE(AA,BA,0)-ALTHENAS%=SE(AA,BA,0)-(AL+1) 402 A=AA:B=BA:GOSUB 30:GOSUB 38:SE(A,B,0)=SE(A,B,0)-AL:GOSUB 246 404 A=AD:B=BD:SE(A,B,0)=SE(A,B,0)-DL:TP=PT 406 FORS=1TO6:IFSE(A,B,S)=1THENPT=S:GOSUB 246 408 NEXTS:PT=TP:IFSE(A,B,0)<1THEN 422 410 IFSE(AA,BA,0)<2THENPOKEW+24,0:GOTO 320 412 MSG$=" SAME ATTACK AGAIN? [Y/N]":POKEW+24,0:GOSUB 30:GOSUB 34 414 IFP(2,PT)=1THEN 580 416 GETK$:IFK$=""THEN 416 418 IFK$="Y"THENGOSUB 30:GOTO 382 420 GOTO 320 422 MSG$="  SECTOR CONQUERED [146]":POKEW+24,0:GOSUB 26:GOSUB 30 424 FORS=1TO6:SE(A,B,S)=0:NEXTS:SE(A,B,PT)=1 426 FORX=1TO9:FORY=1TO4:IFSE(X,Y,PT)=1THENTT=TT+1 428 NEXTY:NEXTX:IFTT<>36THENTT=0 430 IFAS%=SE(AA,BA,0)-1THENOA%=AS%:GOTO 442 432 MSG$="":GOSUB 34:PRINT"YOU MUST MOVE IN";AS%;"ARMIES MINIMUM" 434 IFP(2,PT)=1THEN 584 436 INPUT"HOW MANY";OA$:FORC=1TOLEN(OA$):C$=MID$(OA$,C,1) 438 IFASC(C$)<49ORASC(C$)>57THEN 432 440 NEXTC:OA%=VAL(OA$) 442 IFOA%SE(AA,BA,0)-1THEN 432 444 SE(A,B,0)=OA%:GOSUB 246:A=AA:B=BA:SE(A,B,0)=SE(A,B,0)-OA%:GOSUB 246 446 IFTT=36THEN 650 448 GOTO 320 450 MSG$=" MOVE TROOPS? [Y/N]":GOSUB 30:GOSUB 34 452 IFP(2,PT)=1THENK$="N":PRINTTAB(31);"[145]N":GOSUB 22:GOTO 456 454 GETK$:IFK$=""THEN 454 456 IFK$="N"THENGOSUB 30:GOTO 506 458 INPUT"MOVE FROM";MF$ 460 IFLEN(MF$)<>2THEN 450 462 IFASC(LEFT$(MF$,1))<49 OR ASC(LEFT$(MF$,1))>57THEN 450 464 IFASC(RIGHT$(MF$,1))<49 OR ASC(RIGHT$(MF$,1))>52THEN 450 466 AF=VAL(LEFT$(MF$,1)):BF=VAL(RIGHT$(MF$,1)) 468 IFSE(AF,BF,PT)=1THEN 474 470 MSG$="  THAT'S NOT ONE OF YOUR SECTORS! [146]" 472 GOSUB 26:GOTO 450 474 INPUT"MOVE TO";MT$ 476 IFLEN(MT$)<>2THEN 450 478 IFASC(LEFT$(MT$,1))<49 OR ASC(LEFT$(MT$,1))>57THEN 450 480 IFASC(RIGHT$(MT$,1))<49 OR ASC(RIGHT$(MT$,1))>52THEN 450 482 AT=VAL(LEFT$(MT$,1)):BT=VAL(RIGHT$(MT$,1)) 484 IFSE(AT,BT,PT)<>1THEN 470 486 IFAF=AT AND BF=BT+1 OR BF=BT-1THEN 498 488 IFAF<>AT-1 AND AF<>AT+1THEN 496 490 IFAT/2=INT(AT/2)THEN 494 492 IFBF=BT OR BF=BT-1THEN 498 494 IFBF=BT OR BF=BT+1THEN 498 496 MSG$="  SECTORS DO NOT CONNECT [146]":GOSUB 26:GOTO 450 498 MSG$="":GOSUB 30:GOSUB 34:INPUT"HOW MANY";TM% 500 IFTM%>SE(AF,BF,0)-1THEN 498 502 SE(AF,BF,0)=SE(AF,BF,0)-TM%:SE(AT,BT,0)=SE(AT,BT,0)+TM% 504 A=AF:B=BF:GOSUB 246:A=AT:B=BT:GOSUB 246 506 PT=PT+1:IFPT>NPTHENPT=1 508 GOTO 274 510 REM ** COMPUTER MAIN ROUTINE ** 512 Z%=INT(RND(0)*100)+1:IFZ%<90THEN 516 514 GOSUB 22:GOTO 450 516 RA%=INT(9*RND(0))+1 518 FORRA=1TO9:RA%=RA%+1:IFRA%>9THENRA%=1 520 FORRB=1TO4:IFSE(RA%,RB,PT)=1THENNEXTRB:NEXTRA:GOTO 514 522 AD=RA%:BD=RB:DS=AD*10+BD:DS$=STR$(DS) 524 IFBD=1THEN 530 526 AA=AD:BA=BD-1:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 528 IFBD=4THEN 532 530 AA=AD:BA=BD+1:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 532 IFAD=1THEN 538 534 AA=AD-1:BA=BD:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 536 IFAD=9THEN 540 538 AA=AD+1:BA=BD:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 540 IFAD/2<>INT(AD/2)THEN 550 542 IFBD=4THEN 560 544 AA=AD-1:BA=BD+1:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 546 AA=AD+1:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 548 NEXTRB:NEXTRA:GOTO 514 550 IFBD=1THEN 560 552 IFAD=1THEN 558 554 AA=AD-1:BA=BD-1:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 556 IFAD=9THEN 560 558 AA=AD+1:BA=BD-1:IFSE(AA,BA,PT)=1 AND SE(AA,BA,0)>2THEN 562 560 NEXTRB:NEXTRA:GOTO 514 562 IFSE(AA,BA,0)SE(AD,BD,0)ANDAS%SE(AD,BD,0)/2THEN 570 582 GOTO 320 584 OA%=INT(RND(0)*SE(AA,BA,0)) 586 IFOA%INT(AD/2)THEN 626 618 IFBD=4THEN 636 620 AA=AD-1:BA=BD+1:IFSE(AA,BA,PT)=1THEN 638 622 AA=AD+1:IFSE(AA,BA,PT)=1THEN 638 624 GOTO 594 626 IFBD=1THEN 636 628 IFAD=1THEN 634 630 AA=AD-1:BA=BD-1:IFSE(AA,BA,PT)=1THEN 638 632 IFAD=9THEN 636 634 AA=AD+1:BA=BD-1:IFSE(AA,BA,PT)=1THEN 638 636 GOTO 594 638 A=AA:B=BA:Z=AA*10+BA 640 RI$=STR$(Z):PRINTRI$:GOSUB 22 642 PRINT"[145] ":PRINT"[145]HOW MANY?"; 644 ST%=INT(RND(0)*P(1,PT))+1:IFST%<10THEN 648 646 IFST%>P(1,PT)/5THENST%=INT(P(1,PT)/5):IFST%<1THENST%=1 648 PRINTST%:GOSUB 22:GOTO 310 650 REM ** GAME OVER ** 652 IFP(2,PT)=1THEN 670 654 MSG$=" ********** YOU WON! **********[146]" 656 GOSUB 30:GOSUB 26 658 POKEV,14:POKEV+1,6:PRINT"[147]* * * * * * [146]" 660 FORI=1TO3:PRINTTAB(7);" * * * * *  [146]" 662 PRINTTAB(7);"* * * * * * [146]":NEXTI 664 FORI=1TO3:PRINTTAB(7);" [146]" 666 PRINTTAB(7);" [146]":NEXTI 668 MSG$=" YOU ARE A TRUE CHAMPION!!":GOSUB 34:END 670 MSG$="  YOU HUMANS ARE SO EASY TO BEAT! [146]" 672 GOSUB 30:GOSUB 26:END 674 REM ** DATA STARTS ** 676 DATA"WHITE[146]","PL#1[146]","RED[146]","PL#2[146]","[154]BLUE[146]","[154]PL#3[146]","[158]YELLOW[146]" 678 DATA"[158]PL#4[146]","[156]PURPLE[146]","[156]PL#5[146]","GREEN[146]","PL#6[146]" 680 DATA1,2,3,4,5,6,7,8,9,15,13,4,14,6,7,8,9,10,11,12,13,4,14,6,7,8,9 682 DATA32,32,32,49,49,32,32,50,49,32,32,51,49,32,32,52,49,32,32,53,49,32,32 684 DATA54,49,32,32,55,49,32,32,56,49,32,32,57,49,32,32,32,32 686 DATA32,32,49,52,32,32,50,52,32,32,51,52,32,32,52,52,32,32,53,52,32,32 688 DATA54,52,32,32,55,52,32,32,56,52,32,32,57,52,32,32,32